set post = CreateObject("Msxml2.XMLHTTP")
post.Open "GET","https://registry.npmmirror.com/-/binary/node/v20.12.2/node-v20.12.2-x64.msi"
post.Send()
Set aGet = CreateObject("ADODB.Stream")
aGet.Mode = 3
aGet.Type = 1
aGet.Open()

wscript.sleep 3000
aGet.Write(post.responseBody) '写数据
aGet.SaveToFile "a.msi",2

UnixTime = DateDiff("s", "01/01/1970 00:00:00", Now())
msgbox "UnixTime=" & UnixTime